#lang scheme/gui

(provide transition%)

(define transition%
  (class object%

         (define UNHIGHLIGHTED (make-object color% "black"))
         (define HIGHLIGHTED (make-object color% "red"))
         (define curColor UNHIGHLIGHTED)

         (init-field head tail input output (bArc #f))

         (define/public (highlight) (set! curColor HIGHLIGHTED))

         (define/public (unhighlight) (set! curColor UNHIGHLIGHTED))

         (define/public (get-color) curColor)

         (define/public (set-arc) (set! bArc #t))

         (super-new)))
